home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Turnbull China Bikeride
/
Turnbull China Bikeride - Disc 2.iso
/
STUTTGART
/
UTIL
/
CLI
/
CLIGUARD
/
!CLIGuard
/
!Run
< prev
next >
Wrap
Text File
|
1995-01-06
|
2KB
|
33 lines
|
| !Run file for !CLIGuard
|
Set CLIGuard$Dir <Obey$Dir>
IconSprites <CLIGuard$Dir>.!Sprites
If "<Alias$TaskWindow>"="WimpTask %*0" Then Unset Alias$TaskWindow
RMEnsure TaskWindow 0.00 Set Alias$TaskWindow WimpTask %%*0
| If line editor is running, CLI Guardian will notice and set up an alias so
| typing “History” in the command window will open a window with the previously-run
| commands (CLI Guardian’s commands are automatically appended to this list).
| Alternatively, you could set Alias$History to (e.g.) Type <MyHistoryFile>, so
| typing “History” would open a viewer with the appropriate commands.
| Typing “!” will also show a command history, as will pressing F2.
If "<Alias$History>"="Type <CLIGuard$Dir>.History" Then UnSet Alias$History
If "<Alias$History>"="Recall" Then UnSet Alias$History
Set LineEditor$Running 1
RMEnsure LineEditor 0.00 Set LineEditor$Running 0
If "<LineEditor$Running>"="1" Then Set Alias$History Recall
UnSet LineEditor$Running
SetMacro Alias$! History
If "<Alias$History>"="" Then SetMacro Alias$History Type <CLIGuard$Dir>.History
If "<CLIGuardCommand$FileType>"="" Then Set CLIGuardCommand$FileType 1111
If "<Alias$CLIGuardRunCommand>"="" Then SetMacro Alias$CLIGuardCommand Run <CLIGuard$Dir>.RunComm <CLIGuardCommand$FileType> %%*0
If "<CLIGuardHelp$FileType>"="" Then Set CLIGuardHelp$FileType 1112
If "<Alias$CLIGuardHelp>"="" Then SetMacro Alias$CLIGuardHelp Run <CLIGuard$Dir>.RunComm <CLIGuardHelp$FileType> %%*0
Set Alias$EditFile Run <CLIGuard$Dir>.RunComm FFF %%*0
WimpSlot -min 96K -max 96K
Run <CLIGuard$Dir>.!RunImage